<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
Set dsph = Server.CreateObject("ADODB.Recordset")
SQL="Select * from FreeHost.FreeHost_Order where "
if Request.QueryString ("status")<>"" then
Sql=Sql+" status = '"&trim(Request.QueryString ("status"))&"' and "
end if
if Request.QueryString ("starttime") <>"" then Sql=Sql+" starttime>'"&Request.QUERYSTRING ("starttime")&"' and "
if Request.QueryString ("endtime") <>"" then Sql=Sql+" and endtime<'"&Request.QUERYSTRING ("endtime")&"' and "
if right(sql,5)=" and " then sql=left(sql,len(sql)-5)&" and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc"
if right(SQL,6)="where " then SQL="Select * from FreeHost.FreeHost_Order where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc"
'Response.Write sql
if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
dsph.PageSize = 25
dsph.Open Sql,conn,1,1
if not dsph.eof then
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dsph.RecordCount <> 0 Then dsph.AbsolutePage = CLng(pn)
if clng(pn)<=10 then
begini=1
if dsph.PageCount<=10 then
endini=dsph.PageCount
else
endini=10
end if
end if
%>
<%if clng(pn)<=10 then%>
最新
<%for i=begini to endini
if clng(pn)=i then%>
[<%=i%>]
<%else%>
[<%=i%>]
<%end if%>
<%next%>
<%else%>
最新[1]--[10] 现在是第[<%=pn%>]页 共<%=dsph.PageCount%>页
<%end if%>
<%If Clng(pn)>1 Then%>
上一页
<%End If%>
|
<%If Clng(pn)
下一页
<%End If%>
今天新订单 | ">一周新订单 | 一周未完成订单 | ">30天未完成订单
| 编号 |
内容 |
用户名 |
用户提交的信息 |
时间 |
状态 |
操作 |
<%
For N=1 To dsph.PageSize
If dsph.RecordCount=0 Then Exit For
%>
<%Hosttype=dsph("Hosttype")&dsph("Emailtype")&dsph("SQLtype")&dsph("Othertype")%>
：<%=dsph("regip")%> 用户信息：<%=replace(dsph("truename"),"""","“")%> 内部信息：<%=dsph("coreinfo")%>">
| <%=dsph("id")%> |
<%=Hosttype%> |
" target="_blank"><%=dsph("username")%>
<%if dsph("agent1")<>"n" then%>
(" target="_blank"><%=dsph("agent1")%>)
<%end if%> |
<%=dsph("userremindinfo")%> |
<%=dsph("starttime")%> |
<%=dsph("status")%> |
&id=<%=dsph("id")%>">管理 |
<%
If clng(pn)=dsph.PageCount Then
I = dsph.RecordCount - (dsph.PageCount-1) * dsph.PageSize
If N=I Then Exit For
End If
dsph.movenext
Next%>
<%dsph.close
set dsph=nothing
else%>
没有相关的记录。
<%end if%>
|